﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%
	dim tid,id,ton,uid,reptime,rs,sql


                tid=Request.QueryString("tid")
    		If tid = "" Then tid = 1
	        if not isnumeric(tid) then tid=1
	        tid=clng(tid)
                id=qingtian.nid
                ton=qingtian.repsql(Request.form("ton"))
	if sid="Null" then
Response.Redirect "/login.asp?sid=" & sidd & "&url=/user/myliuyan.asp?sid="&sidd&"@@id="&id
	else
select case v
case "0"
we0="<br/>"
%>
<card title="发表回复"  ontimer="myliuyan.asp?id=<%=id%>&amp;sid=<%=sidd%>"><timer value='10'/><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<meta name="keywords" content=",版本V1.0"/>
<meta name="author" content="晴天建站系统"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="0"/>
<meta http-equiv="Refresh" content="1; url=myliuyan.asp?id=<%=id%>&amp;sid=<%=sidd%>">
<title>发表回复</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select

%>

		<%

		if ton="" then
			%><%=we%>回复内容不能为空!<%=we0%><%
		elseif session("comment")=ton then
			%><%=we%>请不要重复发表回复!<%=we0%><%
		else
                 session("comment")=ton
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql1 = "select [nameb],[repy] from [qingtian_kongjianly] where aid="&id&" and id="&tid&""
		Rs.Open Sql1,conn,1,3
		If Rs.Eof Then
%><%=we%>你的回复权限不足不能回复!<%=we0%>
<%
                else
                rs("repy")=ton
                rs.update
                str=""&id&"tt你好,[url=spacev.asp?nid="&qingtian.nid&"&sid=[sid]]"&session("username")&"(ID:"&qingtian.nid&")[/url]回复了你在Ta空间发表的留言.回复内容:"&ton&".[url=myliuyan.asp?id="&id&"&sid=[sid]]进入查看[/url]!"
                qingtian.addnfo(str)
%><%=we%>发表回复成功!<%=we0%>
<% 
             end if
                Rs.close
                set rs=nothing

		end if

		 %><%=sou%><a href="myliuyan.asp?id=<%=id%>&amp;sid=<%=sidd%>">返回留言页</a><%=we0%><%=we%><a href="chuwu.asp?sid=<%=sidd%>">我的物品</a>|<a href="shangchen.asp?sid=<%=sidd%>">商场</a>|<a href="index.asp?sid=<%=sidd%>">地盘</a><%=we0%> 
<%
		end if
end Function
%>
